www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Users/Users_AllComments.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>影片评论</title> <link href="style/nav.css" rel="stylesheet" type="text/css" /> </head> <body> <!--#include file="../Conn.asp" --> <!--#include file="../Function/Function.asp" --> <!--#include file="../function/Page.asp" --> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100%" valign="top"><table width="690" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="43" background="images/user_top.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="6%"> </td> <td width="94%">影片评论</td> </tr> </table></td> </tr> </table><br /> <table width="90%" border="0" align="center" cellpadding="5" cellspacing="0"> <tr> <td bgcolor="#f7f7f7"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="login"> <tr> <td align="right"><br> <%Dim int_RPP int_RPP=20 '设置每页显示数目 Set RS=Server.CreateObject(YWNT_TMS_RS) sql="select CommentsContent,CommentsUsers,CommentsDate from YWNT_TMS_Comments where CommentsAudit=1 and CommentsMovieID="&NoSqlHack(Request.QueryString("MovieID"))&" order by id desc" RS.open sql,conn,1,1 if Rs.eof then Response.Write"没有记录。" else Rs.PageSize=int_RPP cPageNo=NoSqlHack(Request.QueryString("Page")) If cPageNo="" Then cPageNo = 1 If not isnumeric(cPageNo) Then cPageNo = 1 cPageNo = Clng(cPageNo) If cPageNo>Rs.PageCount Then cPageNo=Rs.PageCount If cPageNo<=0 Then cPageNo=1 Rs.AbsolutePage=cPageNo for i=1 to int_RPP if Rs.eof Then exit For%> <table width="98%" border="0" cellpadding="1" align="center" cellspacing="0" bgcolor="0C9EEB"> <tr> <td align="center"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#D9D9D9" style="layer-out:fixed;word-break:break-all "> <tr bgcolor="#0096D4"> <td height="22" width="4%" align="center"><img src="<%= GetConfig("WebiInstallDir") %>Users/images/senbapl_19.jpg" alt="" width="15" height="17" hspace="3" /></td> <td align="left"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><font color="#FFFFFF"><strong><%=RS("CommentsUsers")%></strong></font></td> <td width="28%"><font color="#FFFFFF">日期:<%=RS("CommentsDate")%></font></td> </tr> </table></td> </tr> <tr bgcolor="#FFFFFF"> <td height="22" align="center"><img src="<%= GetConfig("WebiInstallDir") %>Users/images/senbapl_22.jpg" alt="" width="15" height="20" hspace="3" /></td> <td align="left"><%=UBBcode(RS("CommentsContent"))%></td> </tr> </table></td> </tr> </table> <table width="100" height="10" border="0" cellpadding="0" cellspacing="0"> <tr> <td></td> </tr> </table> <%Rs.MoveNext next end if response.Write fPageCount(Rs,cPageNo) RS.Close Set RS = Nothing%> </td> </tr> </table></td> </tr> </table></td> </tr> </table> <%call connclose()%> <br> </body> </html>